Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cslide.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-05-22 | 11.2 KB | 350 lines

VERSION 2.00 Begin Form frmSlider BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Double Caption = "Slider Demo" ClientHeight = 3225 ClientLeft = 945 ClientTop = 1470 ClientWidth = 5565 ClipControls = 0 'False Height = 3630 Left = 885 LinkTopic = "Form1" ScaleHeight = 3225 ScaleWidth = 5565 Top = 1125 Width = 5685 Begin Data Data1 Caption = "Data1" Connect = "" DatabaseName = "C:\BP\CUACTLS\CUACTLS.MDB" Exclusive = 0 'False Height = 270 Left = 4020 Options = 0 ReadOnly = 0 'False RecordSource = "Test" Top = 2835 Width = 1155 End Begin CUACommand cmdOK Caption = "OK" Default = -1 'True Height = 345 Left = 3885 StandardButton = 1 'OK TabIndex = 1 Top = 90 Width = 1260 End Begin CUAFrame grp3 BackColor = &H00C0C0C0& BorderStyle = 6 'Bump Caption = "&Volume" Font3D = 1 'Inset Height = 2655 Left = 150 TabIndex = 3 Top = 525 Width = 3600 Begin CUASpin spnVol Height = 105 Left = 3315 Max = 59 Orientation = 0 'Horizontal TabIndex = 5 Top = 345 Width = 180 End Begin CUASpin spnEq Height = 180 Index = 4 Left = 2940 Max = 59 TabIndex = 17 Top = 2400 Width = 105 End Begin CUASpin spnEq Height = 180 Index = 3 Left = 2310 Max = 59 TabIndex = 18 Top = 2400 Width = 105 End Begin CUASpin spnEq Height = 180 Index = 2 Left = 1665 Max = 59 TabIndex = 19 Top = 2400 Width = 105 End Begin CUASpin spnEq Height = 180 Index = 1 Left = 990 Max = 59 TabIndex = 20 Top = 2400 Width = 105 End Begin CUASpin spnEq Height = 180 Index = 0 Left = 315 Max = 59 TabIndex = 21 Top = 2400 Width = 105 End Begin CUASlide sldEq BackColor = &H00C0C0C0& DataField = "Tal5" DataSource = "Data1" ForeColor = &H00FFFFFF& Height = 1200 Index = 4 Left = 2850 Orientation = 1 'Vertical TabIndex = 10 Top = 1200 Value = 8 Width = 465 End Begin CUASlide sldEq BackColor = &H00C0C0C0& DataField = "Tal1" DataSource = "Data1" ForeColor = &H00000000& Height = 1200 Index = 0 Left = 225 Orientation = 1 'Vertical TabIndex = 6 Top = 1200 Value = 7 Width = 450 End Begin CUASlide sldEq BackColor = &H00C0C0C0& DataField = "Tal2" DataSource = "Data1" ForeColor = &H00800000& Height = 1200 Index = 1 Left = 900 Orientation = 1 'Vertical TabIndex = 7 Top = 1200 Value = 8 Width = 450 End Begin CUASlide sldEq BackColor = &H00C0C0C0& DataField = "Tal3" DataSource = "Data1" ForeColor = &H00808000& Height = 1200 Index = 2 Left = 1575 Orientation = 1 'Vertical TabIndex = 8 Top = 1200 Width = 450 End Begin CUASlide sldEq BackColor = &H00C0C0C0& DataField = "Tal4" DataSource = "Data1" ForeColor = &H0080FFFF& Height = 1200 Index = 3 Left = 2220 Orientation = 1 'Vertical TabIndex = 9 Top = 1200 Value = 6 Width = 450 End Begin CUASlide sldVol BackColor = &H00C0C0C0& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 660 Left = 180 ScaleStep = 2 TabIndex = 4 Top = 255 Value = 2 Width = 3135 End Begin CUALabel lbl1 Caption = "15000" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 2790 TabIndex = 16 Top = 975 Width = 540 End Begin CUALabel lbl1 Caption = "50" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 270 TabIndex = 15 Top = 975 Width = 225 End Begin CUALabel lbl1 Caption = "1000" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 1515 TabIndex = 12 Top = 975 Width = 435 End Begin CUALabel lbl1 Caption = "400" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 885 TabIndex = 14 Top = 975 Width = 330 End Begin CUALabel lbl1 Caption = "5000" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 2160 TabIndex = 13 Top = 975 Width = 435 End Begin CUALabel lblVol Alignment = 2 'Center BackColor = &H00FFFFFF& Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 195 Left = 3315 TabIndex = 11 Top = 135 Width = 225 End End Begin CUALabel lbl2 Caption = "Sometimes you see scroll bars inaccurately used as a poor man's slider. Scroll bars should only be used for - yes - scrolling." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FFFFFF& Height = 1935 Left = 3885 TabIndex = 2 Top = 630 Width = 1425 End Begin CUALabel lbl Caption = "CUASlider is a slider that works the same way as it's real life correspondence." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 435 Index = 6 Left = 150 TabIndex = 0 Top = 90 Width = 3540 End Option Explicit Sub cmdOK_Click () Unload Me End Sub Sub Data1_Error (DataErr As Integer, Response As Integer) Response = 0 End Sub Sub Form_Load () Dim i% Data1.DatabaseName = DatabaseName spnVol.Max = sldVol.Max spnVol = sldVol For i = 0 To 4 spnEq(i).Max = sldEq(i).Max spnEq(i) = sldEq(i) Next End Sub Sub sldEq_Change (Index As Integer) spnEq(Index) = sldEq(Index) End Sub Sub sldVol_Change () spnVol = sldVol lblVol = sldVol End Sub Sub spnEq_Change (Index As Integer) sldEq(Index) = spnEq(Index) End Sub Sub spnVol_Change () sldVol = spnVol End Sub